****
** Replication File:
**
** “Are Republicans and Conservatives More Likely 
** to Believe Conspiracy Theories?”
**
** Adam Enders, Christina Farhart, Joanne Miller,
** Joseph Uscinski, Kyle Saunders, and Hugo Drochon
**
** Analyses conducted in Stata/SE 15.1
****

* Set working directory

********************************************************************************

****
** 2016 CCES
****

use "CCES 2016 2.dta"

* Conspiracy thinking
alpha consthink_1 consthink_2 consthink_3 consthink_4, gen(consthink)

* Correlations: partisanship
sem (<- banks pid7) [pweight=weight], standardize 
sem (<- katrina pid7) [pweight=weight], standardize 
sem (<- fakestat pid7) [pweight=weight], standardize 
sem (<- putin pid7) [pweight=weight], standardize 
sem (<- koch pid7) [pweight=weight], standardize 
sem (<- hcpoison pid7) [pweight=weight], standardize 


* Correlations: ideology
sem (<- banks ideo7) [pweight=weight], standardize 
sem (<- katrina ideo7) [pweight=weight], standardize 
sem (<- fakestat ideo7) [pweight=weight], standardize 
sem (<- putin ideo7) [pweight=weight], standardize 
sem (<- koch ideo7) [pweight=weight], standardize 
sem (<- hcpoison ideo7) [pweight=weight], standardize 


* Correlations: conspiracy thinking
sem (<- banks consthink) [pweight=weight], standardize 
sem (<- katrina consthink) [pweight=weight], standardize 
sem (<- fakestat consthink) [pweight=weight], standardize 
sem (<- putin consthink) [pweight=weight], standardize 
sem (<- koch consthink) [pweight=weight], standardize 
sem (<- hcpoison consthink) [pweight=weight], standardize 

clear

********************************************************************************

****
** 2018 CCES 1
****

use "CCES 2018 1.dta"


* Conspiratorial thinking
alpha con1-con4, gen(conthink)


* Correlations: partisanship
sem (<- truther pid) [pweight=weight], standardize 

* Correlations: ideology
sem (<- truther ideo) [pweight=weight], standardize 

* Correlations: ideology
sem (<- truther conthink) [pweight=weight], standardize 


clear

********************************************************************************

****
** 2018 CCES 3
****

use "CCES 2018 3.dta"

* Conspiracy thinking
factor consthink_1 consthink_2 consthink_3 consthink_4, ipf
alpha consthink_1 consthink_2 consthink_3 consthink_4, gen(conthink)

* Correlations: partisanship
sem (<- rusmanip pid7) [pweight=teamweight], standardize 
sem (<- mueller pid7) [pweight=teamweight], standardize 

* Correlations: ideology
sem (<- rusmanip ideo7) [pweight=teamweight], standardize 
sem (<- mueller ideo7) [pweight=teamweight], standardize 

* Correlations: conspiracy thinking
sem (<- rusmanip conthink) [pweight=teamweight], standardize 
sem (<- mueller conthink) [pweight=teamweight], standardize 

clear

********************************************************************************

****
** July 2019 Qualtrics
****

use "Qualtrics 2019 1.dta"

* Conspiratorial thinking
alpha con1-con4, gen(conthink)


* Correlations: partisanship
sem (<- cancer pid), standardize 
sem (<- moon pid), standardize 


* Correlations: ideology
sem (<- cancer ideo), standardize 
sem (<- moon ideo), standardize 


* Correlations: conspiracy thinking
sem (<- cancer conthink), standardize 
sem (<- moon conthink), standardize 


clear

********************************************************************************

****
** March 2020 Qualtrics
****

use "Qualtrics March 2020.dta"


* Conspiratorial thinking
alpha con1-con4, gen(conthink)


* Correlations: partisanship
sem (<- rothschilds pid), standardize 
sem (<- jfk pid), standardize 
sem (<- aliens pid), standardize 
sem (<- aids pid), standardize 
sem (<- jewskilled pid), standardize 
sem (<- gmos pid), standardize 
sem (<- trumpasset pid), standardize 
sem (<- birther pid), standardize 


* Correlations: ideology
sem (<- rothschilds ideo), standardize 
sem (<- jfk ideo), standardize 
sem (<- aliens ideo), standardize 
sem (<- aids ideo), standardize 
sem (<- jewskilled ideo), standardize 
sem (<- gmos ideo), standardize 
sem (<- trumpasset ideo), standardize 
sem (<- birther ideo), standardize 


* Correlations: conspiracy thinking
sem (<- rothschilds conthink), standardize 
sem (<- jfk conthink), standardize 
sem (<- aliens conthink), standardize 
sem (<- aids conthink), standardize 
sem (<- jewskilled conthink), standardize 
sem (<- gmos conthink), standardize 
sem (<- trumpasset conthink), standardize 
sem (<- birther conthink), standardize 

clear


********************************************************************************

****
** June 2020 Qualtrics
****

use "Qualtrics June 2020.dta"

* Conspiratorial thinking
alpha con1-con4, gen(conthink)


* Correlations: partisanship
sem (<- cpurpose pid), standardize 
sem (<- tracking pid), standardize 
sem (<- covidvaxx pid), standardize 


* Correlations: ideology
sem (<- cpurpose ideo), standardize 
sem (<- covidvaxx ideo), standardize  
sem (<- tracking ideo), standardize 


* Correlations: conspiracy thinking
sem (<- cpurpose conthink), standardize 
sem (<- tracking conthink), standardize 
sem (<- covidvaxx conthink), standardize 


clear

********************************************************************************

****
** October 2020 Qualtrics
****

use "Qualtrics Oct 2020.dta"


* Correlations: partisanship
sem (<- arrested pid), standardize 
sem (<- hollywood pid), standardize 
sem (<- cexaggerate pid), standardize 
sem (<- deepstate pid), standardize 
sem (<- cellphone pid), standardize 
sem (<- falseflag pid), standardize 
sem (<- vaccines pid), standardize 
sem (<- climatechange pid), standardize  
sem (<- repsteal pid), standardize 
sem (<- infecttrump pid), standardize 
sem (<- faking pid), standardize 
sem (<- covercovid pid), standardize 
sem (<- postoffice pid), standardize 


* Correlations: ideology
sem (<- arrested ideo), standardize 
sem (<- hollywood ideo), standardize 
sem (<- cexaggerate ideo), standardize 
sem (<- deepstate ideo), standardize 
sem (<- cellphone ideo), standardize 
sem (<- falseflag ideo), standardize 
sem (<- vaccines ideo), standardize 
sem (<- climatechange ideo), standardize 
sem (<- repsteal ideo), standardize 
sem (<- infecttrump ideo), standardize 
sem (<- faking ideo), standardize 
sem (<- covercovid ideo), standardize 
sem (<- postoffice ideo), standardize 


* Correlations: Conspiracy Thinking
sem (<- arrested conthink), standardize 
sem (<- hollywood conthink), standardize 
sem (<- cexaggerate conthink), standardize 
sem (<- deepstate conthink), standardize 
sem (<- cellphone conthink), standardize 
sem (<- falseflag conthink), standardize 
sem (<- vaccines conthink), standardize 
sem (<- climatechange conthink), standardize 
sem (<- repsteal conthink), standardize 
sem (<- infecttrump conthink), standardize 
sem (<- faking conthink), standardize 
sem (<- covercovid conthink), standardize 
sem (<- postoffice conthink), standardize 

clear


********************************************************************************

****
** May 2021 Qualtrics
****

use "Qualtrics 2021.dta"


* Correlations: ideology
sem (<- ideo epstein), standardize
sem (<- ideo bobby), standardize
sem (<- ideo simpson), standardize
sem (<- ideo govassass), standardize
sem (<- ideo contra), standardize
sem (<- ideo lightbulbs), standardize
sem (<- ideo fluoride), standardize
sem (<- ideo mlk), standardize
sem (<- ideo mindcontrol), standardize
sem (<- ideo pharma), standardize
sem (<- ideo fdrlied), standardize
sem (<- ideo fda), standardize
sem (<- ideo soros), standardize
sem (<- ideo sandyhook), standardize
sem (<- ideo killpolice), standardize
sem (<- ideo billgates), standardize
sem (<- ideo cellphone), standardize

* Correlations: partisanship
sem (<- pid epstein), standardize
sem (<- pid bobby), standardize
sem (<- pid simpson), standardize
sem (<- pid govassass), standardize
sem (<- pid contra), standardize
sem (<- pid lightbulbs), standardize
sem (<- pid fluoride), standardize
sem (<- pid mlk), standardize
sem (<- pid mindcontrol), standardize
sem (<- pid pharma), standardize
sem (<- pid fdrlied), standardize
sem (<- pid fda), standardize
sem (<- pid soros), standardize
sem (<- pid sandyhook), standardize
sem (<- pid killpolice), standardize
sem (<- pid billgates), standardize
sem (<- pid cellphone), standardize

* Correlations: Conspiracy Thinking
sem (<- conthink epstein), standardize
sem (<- conthink bobby), standardize
sem (<- conthink simpson), standardize
sem (<- conthink govassass), standardize
sem (<- conthink contra), standardize
sem (<- conthink lightbulbs), standardize
sem (<- conthink fluoride), standardize
sem (<- conthink mlk), standardize
sem (<- conthink mindcontrol), standardize
sem (<- conthink pharma), standardize
sem (<- conthink fdrlied), standardize
sem (<- conthink fda), standardize
sem (<- conthink soros), standardize
sem (<- conthink sandyhook), standardize
sem (<- conthink killpolice), standardize
sem (<- conthink billgates), standardize
sem (<- conthink cellphone), standardize

